home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Inner String 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  332 b   |  11 lines
  1. 0 print"[147]inner string"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #44-3 :
  4. 3 rem     inner string
  5. 4 rem    solution by
  6. 5 rem     larry schafer
  7. 6 rem ==================================
  8. 10 dim p(80):input a$,b$:for j=1 to len(a$):for a=1 to len(b$)
  9. 20 if mid$(b$,a,1)=mid$(a$,j,1) and p(a)<>1 then p(a)=1:nextj:print"yes":end
  10. 30 nexta:print"no":end
  11.